From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 4 Sep 1995 20:26:58 +0000 (+0000)
Subject: (mail-interactive-insert-alias): Call mail-abbrev-expand-hook.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~86069
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0eef787b4903ccd8eb2f83b49f42cb43511f8a13;p=emacs.git

(mail-interactive-insert-alias): Call mail-abbrev-expand-hook.
---

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index c4f1a71f426..84debb0bd95 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -505,7 +505,8 @@ characters which may be a part of the name of a mail alias.")
 		(if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup))
 		(list (completing-read "Expand alias: " mail-abbrevs nil t))))
   (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup))
-  (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) "")))
+  (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) ""))
+  (mail-abbrev-expand-hook))
 
 (defun mail-abbrev-next-line (&optional arg)
   "Expand any mail abbrev, then move cursor vertically down ARG lines.